home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
commodore-users-of-norman
/
CUON_25_(10-1984).d64
/
ultrafont loader
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2019-04-13
|
1KB
|
26 lines
100 IFA=1THEN300
120 PRINT "[147] NOW LOADING ULTRAFONT+ "
130 PRINTTAB(15)"COMMANDS:"
135 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
140 PRINT"[221]F[146]:FIX CHARACTER"TAB(19)"[221]L[146]:LOAD [221]"
150 PRINT"[221]M[146]:MIRROR"TAB(19)"[221]R[146]:ROTATE [221]"
160 PRINT"[221]S[146]:SAVE"TAB(19)"[221]V[146]:CURSOR VELOCITY[221]"
165 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
167 PRINT" T[146]:TYPE MODE. USE RUN/STOP TO EXIT"
170 PRINTTAB(7)"CRSR KEYS:MOVE SMALL CURSOR"
180 PRINT"F1[146]:SCROLL DOWN"TAB(19)"F2[146]:SCROLL UP"
190 PRINT"F3[146]:SCROLL RIGHT"TAB(19)"F4[146]:SCROLL LEFT"
200 PRINT"F5[146]:MULTICOLOR"TAB(19)"F6[146]:NORMAL"
210 PRINT"F7[146]:MEMORIZE CHAR"TAB(19)"F8[146]:RECALL CHAR"
220 PRINT"1-4:COLOR"TAB(19)"SHIFT[146] 1-4:SETCOLOR"
230 PRINT"HOME:TOP LEFT"TAB(19)"CLR:ERASE CHAR."
240 PRINT"CTRL[146]-R:REVERSE CHARACTER"
245 PRINT"CTRL[146]-D:MAKE DATA STATEMENTS"
250 PRINT"SHIFT[146]-RUN/STOP[146]:RE-RUN ULTRAFONT+"
252 PRINT"CTRL[146]-X:EXIT ULTRAFONT+"
253 PRINT"CTRL[146]-_:COPYDOWN TO RVS";
260 A=1:LOAD"ULTRAFONT.OBJ",8,1
300 A$="[147]SYS49152"+CHR$(13):POKE198,LEN(A$)
310 FORI=1TOLEN(A$):POKE630+I,ASC(MID$(A$,I)):NEXT
320 NEW